GUITAR HERO CREATED BY Null/i60106(whatever name im going by)
---------------------------------------------------------------

alias gh1 { return $+($chr(2),$chr(3),$g1,$1-,$chr(3),$chr(15)) }
alias gh2 { return $+($chr(2),$chr(3),$g2,$1-,$chr(3),$chr(15)) }
alias gh3 { return $+($chr(2),$chr(3),$g3,$1-,$chr(3),$chr(15)) }
alias gh4 { return $+($chr(2),$chr(3),$g4,$1-,$chr(3),$chr(15)) }
alias gh5 { return $+($chr(2),$chr(3),$g5,$1-,$chr(3),$chr(15)) }

alias g1 { return 8,8 } 
alias g2 { return 4,4 } 
alias g3 { return 13,13 } 
alias g4 { return 2,2 } 
alias g5 { return 9,9 } 

on *:TEXT:!GuitarHero*:#: {
  if ($address($nick,4) == *!*@*.hsd1.ma.comcast.net) || ($readini(Access.ini,$address($nick,4),Access) > 4999) || ($nick isop $chan) {
    if ($2 == on) {
      /writeini song.ini $chan Status Clear
      /msg $chan 4Guitar Hero14 is now on for $chan $+ !
    }
    if ($2 == off) {
      /writeini song.ini $chan Status Off
      /msg $chan 4Guitar Hero14is now off for $chan $+ !
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}

on *:TEXT:!stopsong*:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { /notice $nick Try Starting a Song First Genius... | halt }
  if ($address($nick,4) == *!*@*.hsd1.ma.comcast.net) || ($readini(Access.ini,$address($nick,4),Access)) > 4999) || ($nick isop $chan) {
    /writeini song.ini $chan Status Clear
    /msg $chan 4Song stopped 14by $nick
    /remini turns.ini $chan
    /remini score.ini $chan
    /unset %ready [ $+ [ $chan ] ]
    /unset %correctcords [ $+ [ $chan ] ]
  }
}
on *:TEXT:?record*:#: {
  /set %rec.msg [ $+ [ %dd ] ] $iif($left($1,1) == @,.msg $chan,.notice $nick)
  if (!$2) { %rec.msg 4The Record for2 $nick 14is4 $calc($readini(Wins.ini,$nick,wins)+0) Wins, and $calc($readini(Losses.ini,$nick,Losses)+0) Losses. }
  else { %rec.msg 4The Record for2 $2 14is4 $calc($readini(Wins.ini,$2,wins)+0) Wins, and $calc($readini(Losses.ini,$2,Losses)+0) Losses. }
}

on *:TEXT:!song*:#: {
  if ($readini(song.ini,$chan,Status) = Clear) {
    /msg $chan 4 $+ $nick 14Thinks hes good enough to play a song1! 4Who wants to rock1? 4Say !song if your up to the challenge!
    /writeini song.ini $chan Status One
    /writeini song.ini $chan Player1 $nick
  HALT }
  if ($readini(Song.ini,$chan,Status) = One) {
    if ($nick == $readini(song.ini,$chan,player1)) { /notice $nick Hey dumbass, your already in it. | halt }
    /set %ready [ $+ [ $chan ] ] current
    /msg $chan 1][1  1][ 1(4B14leach1) ][ (4G-8,8-2U-4,4-5I-13,13-10T-2,2-3A-9,9-7R-1HERO1) ][1  1][14
    /msg $chan 14Ok - The rules are simple: Here are the cords: 8,8 4,4 13,13 2,2 9,9
    /msg $chan 14Each time that cord apears, Put a 1. For everytime a cord doesnt apear, put a - for its space.
    /msg $chan 1Example: For 8,8  13,13   2You say 1-1--
    /writeini song.ini $chan Status Full
    /writeini song.ini $chan Player2 $nick
    /msg $chan 2When both players are ready. say !READY >:D
    /writeini score.ini $chan $nick 0
    /writeini turns.ini $chan number 1
  HALT }
  if ($readini(Song.ini,$chan,Status) = Off) {
    /msg $chan 14Sorry, The Guitar Hero Script is currently offline for this channel.
  }
  if ($readini(Song.ini,$chan,Status) = Full) {
    /notice $nick Theres already a game going at the moment! Please wait your turn.
  }
}

on *:TEXT:!ready:#: {
  if ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player1)) && (%ready [ $+ [ $chan ] ] == current) {
    /msg $chan 4 $+ $readini(song.ini,$chan,Player1) Is ready!! How about you $readini(song.ini,$chan,Player2) $+ ?
    /set %ready [ $+ [ $chan ] ] One
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == current) {
    /msg $chan 4 $+ $readini(song.ini,$chan,Player2) Is ready!! How about you $readini(song.ini,$chan,Player1) $+ ?
    /set %ready [ $+ [ $chan ] ] One
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player1)) && (%ready [ $+ [ $chan ] ] == One) {
    /msg $chan 14Both players are ready!!! HERE WE GO PMG
    /set %ready [ $+ [ $chan ] ] Full
    /writeini turns.ini $chan Number 1
    var %rand1 = $rand(1,2)
    var %rand2 = $rand(1,2)
    var %rand3 = $rand(1,2)
    var %rand4 = $rand(1,2)
    var %rand5 = $rand(1,2)
    /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
    /msg $chan $iif(%rand1 == 1,$gh1(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),)
  }
  elseif ($readini(Song.ini,$chan,Status) = Full) && ($nick == $readini(song.ini,$chan,Player2)) && (%ready [ $+ [ $chan ] ] == One) {
    /msg $chan 14Both players are ready!!! HERE WE GO PMG
    /set %ready [ $+ [ $chan ] ] Full
    var %rand1 = $rand(1,2)
    var %rand2 = $rand(1,2)
    var %rand3 = $rand(1,2)
    var %rand4 = $rand(1,2)
    var %rand5 = $rand(1,2)
    /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
    /msg $chan $$iif(%rand1 == 1,$gh1(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),)
  }
}

on *:TEXT:*:#: {
  if ($readini(song.ini,$chan,Status) == Full) {
    if (%ready [ $+ [ $chan ] ] == Full) && ($readini(Song.ini,$chan,Status) = Full) {
      if ($1- == %correctcords [ $+ [ $chan ] ]) {
        if ($nick == $readini(song.ini,$chan,Player1)) || ($nick == $readini(song.ini,$chan,Player2)) {
          if ($readini(turns.ini,$chan,Number) < 10) {
            var %rand1 = $rand(1,2)
            var %rand2 = $rand(1,2)
            var %rand3 = $rand(1,2)
            var %rand4 = $rand(1,2)
            var %rand5 = $rand(1,2)
            /set %correctcords [ $+ [ $chan ] ] $iif(%rand1 == 1,1,-) $+ $iif(%rand2 == 1,1,-) $+ $iif(%rand3 == 1,1,-) $+ $iif(%rand4 == 1,1,-) $+ $iif(%rand5 == 1,1,-)
            /msg $chan $iif(%rand1 == 1,$gh1(),) $iif(%rand2 == 1,$gh2(),) $iif(%rand3 == 1,$gh3(),) $iif(%rand4 == 1,$gh4(),) $iif(%rand5 == 1,$gh5(),)
            /writeini score.ini $chan $nick $calc($readini(Score.ini,$chan,$nick) + 1)
            /writeini turns.ini $chan number $calc($readini(turns.ini,$chan,Number) + 1)
          }
          elseif ($readini(turns.ini,$chan,Number) = 10) {
            if ($readini(score.ini,$chan,$readini(song.ini,$chan,Player1)) > $readini(score.ini,$chan,$readini(song.ini,$chan,Player2))) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player1) 1DOMINATED 2 $+ $readini(song.ini,$chan,Player2)
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player2) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player2),Losses) + 1)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player1) Now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) wins!!!
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player1)) == $null) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player2) 1DOMINATED 2 $+ $readini(song.ini,$chan,Player1)
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player1) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player1),Losses) + 1)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player2) Now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player2) $+ ,wins) wins!!!
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) == $null) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player1) 1DOMINATED 2 $+ $readini(song.ini,$chan,Player2)
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player2) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player2),Losses) + 1)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player1) Now has $readini(wins.ini, $+ $readini(song.ini,$chan,Player1) $+ ,wins) wins!!!
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) > $readini(score.ini,$chan,$readini(song.ini,$chan,Player1))) {
              /set %wins $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player2) 1DOMINATED 2 $+ $readini(song.ini,$chan,Player1)
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins + 1)
              /writeini losses.ini $readini(song.ini,$chan,Player1) Losses $calc($readini(losses.ini,$readini(song.ini,$chan,Player1),Losses) + 1)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player2) Now has $readini(wins.ini, $+ $readini(song.ini,$chan,player2) $+ ,wins) wins!!!
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins
            }
            elseif ($readini(score.ini,$chan,$readini(song.ini,$chan,Player2)) == $readini(score.ini,$chan,$readini(song.ini,$chan,Player1))) {
              /set %wins1 $readini(wins.ini,$readini(song.ini,$chan,player1),Wins)
              /set %wins2 $readini(wins.ini,$readini(song.ini,$chan,player2),Wins)
              /msg $chan 4Both of you rocked a lot, IT WAS A TIE!
              /writeini wins.ini $readini(song.ini,$chan,Player1) Wins $calc(%wins1 + 1)
              /writeini wins.ini $readini(song.ini,$chan,Player2) Wins $calc(%wins2 + 1)
              /msg $chan 4 $+ $readini(song.ini,$chan,Player2) Now has $readini(wins.ini,$+ $readini(Song.ini,$chan,Player2) $+ ,wins) wins!!!
              /msg $chan 4 $+ $readini(song.ini,$chan,Player1) Now has $readini(wins.ini,$+ $readini(Song.ini,$chan,Player1) $+ ,wins) wins!!!
              /writeini song.ini $chan Status Clear
              /remini song.ini $chan Player1
              /remini song.ini $chan Player2
              /remini score.ini $chan
              /remini turns.ini $chan
              /unset %wins1
              /unset %wins2
            }
          }
        }
      }
    }
  }
}

on *:PART:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { halt }
  if ($readini(Song.ini,$chan,Status) = Full) {
    if ($nick == $readini(song.ini,$chan,Player1) || ($nick == $readini(song.ini,$chan,Player2) || ($nick == $me) {
      /writeini song.ini $chan Status Clear
      /msg $chan 4Song stopped 14by $nick
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}

on *:KICK:#: {
  if ($readini(song.ini,$chan,Status) = Clear) || ($readini(Song.ini,$chan,Status) = Off) { halt }
  if ($readini(Song.ini,$chan,Status) = Full) {
    if ($knick == $readini(song.ini,$chan,Player1) || ($knick == $readini(song.ini,$chan,Player2) || ($knick == $me) {
      /writeini song.ini $chan Status Clear
      /msg $chan 4Song stopped 14by $nick
      /remini turns.ini $chan
      /remini score.ini $chan
      /unset %ready [ $+ [ $chan ] ]
      /unset %correctcords [ $+ [ $chan ] ]
    }
  }
}
